﻿<%

if RZ_IN<>1 then
	response.write("非法请求")
	response.end
end If

Sub ArticleShow(S_KEY)

SysInclude(GetTemplateName(S_RZPARAM.Process,S_RZPARAM.Typeid))


set S_ARTICLE_SHOW = new RZContent
S_ARTICLE_SHOW.Template = S_TEMPLATE
S_ARTICLE_SHOW.ObjRZParam = S_RZPARAM
S_ARTICLE_SHOW.ShowNext = 1

Set S_CRUMB=new RZCrumb
S_CRUMB.Str=S_ARTICLE_SHOW.Title

S_TEMPLATE=S_ARTICLE_SHOW.GetResult()

If S_KEY=0 Then 
	Flush()
Else
	FlushToHTML()
End If 

End Sub
%>